object MenuDialogForm: TMenuDialogForm
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082': '#1073#1083#1102#1076#1072
  ClientHeight = 502
  ClientWidth = 570
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object MenuTree: TTreeView
    Left = 0
    Top = 0
    Width = 273
    Height = 465
    Indent = 19
    ReadOnly = True
    TabOrder = 0
    OnChange = MenuTreeChange
    OnExpanding = MenuTreeExpanding
    Items.NodeData = {
      0101000000210000000000000000000000FFFFFFFFFFFFFFFF00000000000000
      00041C0435043D044E04}
  end
  object MenuGrid: TDBGrid
    Left = 279
    Top = 0
    Width = 290
    Height = 465
    Hint = #1044#1074#1086#1081#1085#1086#1081' '#1082#1083#1080#1082' '#1076#1086#1073#1072#1074#1080#1090' '#1073#1083#1102#1076#1086' '#1074' '#1089#1087#1080#1089#1086#1082' '#1080#1089#1082#1083#1102#1095#1077#1085#1085#1099#1093
    DataSource = MenuSource
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = MenuGridDblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'sifr'
        Title.Caption = #1050#1086#1076
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 146
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'price'
        Title.Caption = #1062#1077#1085#1072
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 57
        Visible = True
      end>
  end
  object CancelBtn: TBitBtn
    Left = 483
    Top = 471
    Width = 79
    Height = 25
    Caption = #1054#1090#1084#1077#1085#1072
    TabOrder = 2
    Kind = bkCancel
  end
  object OkBtn: TBitBtn
    Left = 397
    Top = 471
    Width = 80
    Height = 25
    Caption = #1042#1099#1073#1088#1072#1090#1100
    TabOrder = 3
    OnClick = OkBtnClick
    Kind = bkOK
  end
  object MenuTable: TTable
    DatabaseName = 'C:\Users\'#1057#1072#1096#1072'\Documents\'#1062#1058#1054'\Intellect\DATABASE'
    TableName = 'menu.db'
    Top = 472
  end
  object MenuQuery: TQuery
    DatabaseName = 'C:\Users\'#1057#1072#1096#1072'\Documents\'#1062#1058#1054'\Intellect\DATABASE'
    SQL.Strings = (
      'Select * From "menu.db"'
      'Where (Parent=:Parent) and (TreeType="T")')
    Left = 32
    Top = 472
    ParamData = <
      item
        DataType = ftString
        Name = 'Parent'
        ParamType = ptUnknown
        Value = '0'
      end>
  end
  object MenuSource: TDataSource
    DataSet = ItemsQuery
    Left = 504
    Top = 216
  end
  object ItemsQuery: TQuery
    DatabaseName = 'C:\Users\'#1057#1072#1096#1072'\Documents\'#1062#1058#1054'\Intellect\DATABASE'
    SQL.Strings = (
      'Select sifr,name, price From "menu.db"'
      'Where  (Parent=:Parent) and (TreeType='#39'F'#39')'
      '')
    Left = 536
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Parent'
        ParamType = ptUnknown
      end>
  end
end
